home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / E-Education / (c)ed1.d64 / teacher info (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  5KB  |  130 lines
  1. 10 GOTO100
  2. 50 FORT=1TO500:NEXT:RETURN
  3. 51 FORT=1TO1000:NEXT:RETURN
  4. 52 FORT=1TO2000:NEXT:RETURN
  5. 53 FORT=1TO3000:NEXT:RETURN
  6. 60 PRINT"   * [208]RESS [211][208][193][195][197][160][194][193][210] TO CONTINUE.
  7. 62 [161]R$:[139]R$[179][177][199](32)[167]62
  8. 64 [142]
  9. 100 [151]53280,0:[151]53281,0:[151]646,3:[151]53272,23
  10. 105 [153]"SYSLOAD   (null)(null)(null)CHR$ VALSTR$(null)LENATN(null)RIGHT$(null)(null)ATN(null) STR$ISK  VALSTR$-1 WAIT":[141]50
  11. 110 [153]"OPEN   ASCROM THE (null)ORONTO (null)ET (null)SERS' CHR$ROUP":[141]50
  12. 115 [153]"DEF   ATN LENOMMODORE COMPUTER USERS CLUB ":[141]52
  13. 120 [153]"SYS    ***  (null)HE (null)-(null)ATION (null)IT  *** ":[141]51
  14. 121 [153]"PRINT   (null)ROGRAMS FOR KINDERGARTEN AND           GRADE 1 PUPILS.":[141]51
  15. 122 [153]"   RIGHT$NFORMATION FOR TEACHERS.OPEN"
  16. 123 [141]51:[141]60
  17. 125 [153]"LOAD   (null)HESE PUBLIC DOMAIN PROGRAMS HAVE
  18. 130 PRINT"   BEEN DERIVED FROM THE [195]OMMODORE
  19. 135 [153]"   (null)NTARIO VALDUCATIONAL SOFTWARE            (null)ROJECT, 1983.":[141]53
  20. 140 [153]"   (null)HEY HAVE BEEN UPDATED BY MEMBERS
  21. 145 PRINT"   GUIDED BY EXTENSIVE DIRECT
  22. 150 [153]"   OBSERVATION OF STUDENT INTERACTION."
  23. 155 [153]"   ATN DESCRIPTION OF THE PROGRAMS           FOLLOWS.
  24. 160 GOSUB53:GOSUB60
  25. 200 PRINT"[147]  [205][201][211][211][201][206][199] [206][213][205][194][197][210]
  26. 210 [153]"  ATN LIST OF NUMBERS FROM 0 TO 10
  27. 220 PRINT"  IS DISPLAYED.  [212]HERE IS A BLANK
  28. 230 [153]"  WHERE ONE OF THE NUMBERS IS MISSING.
  29. 240 PRINT"  [212]HE STUDENT MUST TYPE IN THE MISSING
  30. 250 [153]"  NUMBER.  (null)HERE ARE TEN QUESTIONS."
  31. 260 [141]53:[141]60
  32. 300 [153]"LOAD   LEN(null)(null)(null)(null)CLOSE(null)(null)CLOSE(null)VAL(null)
  33. 310 PRINT"   [193] SERIES OF NUMBERS FROM 1 TO 10
  34. 320 [153]"   WILL APPEAR WITH A FLASHING BLOCK
  35. 330 PRINT"   BENEATH IT.  [212]HE STUDENT MUST TAP
  36. 340 [153]"   THE (null)(null)ATNLENVAL PEEKATN(null) THAT NUMBER OF TIMES.
  37. 350 PRINT"   [193] SET OF BLOCKS MATCHING THE NUMBER
  38. 360 [153]"   DISPLAYED WILL REINFORCE LEARNING."
  39. 370 [141]53:[141]60
  40. 400 [153]"LOAD   LEN(null)(null)(null)(null)CLOSE(null)VAL(null)
  41. 410 PRINT"   [193] NUMBER OF SHAPES IS DISPLAYED
  42. 420 [153]"   AND THE STUDENT MUST TYPE THE
  43. 430 PRINT"   CORRECT NUMBER.
  44. 440 [153]"   (null)HERE MAY BE THREE ATTEMPTS TO GET
  45. 450 PRINT"   THE CORRECT NUMBER AFTER WHICH THE
  46. 460 [153]"   CORRECT NUMBER IS DISPLAYED.
  47. 470 PRINT"   [212]HERE ARE TEN QUESTIONS."
  48. 475 GOSUB53:GOSUB60
  49. 500 PRINT"[147]   [194][197][199][201][206][160][195][207][213][206][212][201][206][199]
  50. 510 [153]"   ATN NUMBER OF OBJECTS ARE DISPLAYED
  51. 520 PRINT"   AND THE STUDENT MUST TYPE THAT          NUMBER.
  52. 530 [153]"   (null)HE STUDENT MAY HAVE TWO ATTEMPTS
  53. 540 PRINT"   BEFORE THE CORRECT NUMBER IS SHOWN.
  54. 550 [153]"   (null)HERE ARE TEN QUESTIONS."
  55. 560 [141]53:[141]60
  56. 600 [153]"LOAD   (null)ATN(null)LENLEFT$CLOSE(null)(null)CLOSE(null)(null)(null)PEEKVAL(null)(null)
  57. 610 PRINT"   [193] GROUP OF NUMBERS IS DISPLAYED.
  58. 620 [153]"   (null)HE STUDENT MUST SELECT FROM THOSE
  59. 630 PRINT"   NUMBERS THE NUMBER THAT MATCHES THE
  60. 640 [153]"   ONE IN A BOX IN THE TOP CORNER.
  61. 650 PRINT"   [193]FTER TWO ATTEMPTS, THE CORRECT         NUMBER WILL BE DISPLAYED.
  62. 660 [153]"   (null)HERE ARE TEN QUESTIONS."
  63. 670 [141]53:[141]60
  64. 700 [153]"LOAD   (null)(null)(null)PEEKVAL(null)(null)
  65. 710 PRINT"   [212]HE STUDENT OR TEACHER SELECTS
  66. 720 [153]"   THE HIGHEST NUMBER TO BE USED.
  67. 730 PRINT"   [193] RANDOM NUMBER IN THAT RANGE IS        DISPLAYED.
  68. 740 [153]"   (null)HE STUDENT MUST TYPE THE NEXT          HIGHEST NUMBER.
  69. 750 PRINT"   [212]HE OBJECT OF THE GAME IS TO GET
  70. 760 [153]"   THE MOST CORRECT ANSWERS IN A ROW.
  71. 770 PRINT"   [201]F A MISTAKE IS MADE, THE GAME IS       RESTARTED."
  72. 775 GOSUB53:GOSUB60
  73. 800 PRINT"[147]   [205][201][211][211][201][206][199][160][204][197][212][212][197][210]
  74. 810 [153]"   (null)HE ENTIRE ALPHABET, EXCEPT FOR
  75. 820 PRINT"   ONE MISSING LETTER, IS DISPLAYED.
  76. 830 [153]"   (null)HE STUDENT MUST TYPE THAT LETTER.
  77. 840 PRINT"   [211]HOULD THE STUDENT FAIL AFTER FIVE
  78. 850 [153]"   ATTEMPTS, THE COMPUTER WILL TRY TO      ALERT THE TEACHER."
  79. 855 [141]53:[141]60
  80. 900 [153]"LOAD   (null)ATN(null)LENLEFT$CLOSE(null)(null)CLOSE(null)VAL(null)(null)VAL(null)
  81. 910 PRINT"   [193] GROUP OF LETTERS ARE DISPLAYED.
  82. 920 [153]"   (null)HE STUDENT MUST SELCT FROM THESE
  83. 930 PRINT"   LETTERS, THE ONE THAT MATCHES THE
  84. 940 [153]"   ONE IN A BOX IN THE TOP CORNER.
  85. 950 PRINT"   [193]FTER TWO ATTEMPTS THE CORRECT          MATCH WILL BE DISPLAYED.
  86. 960 [153]"   (null)HERE ARE TEN QUESTIONS."
  87. 965 [141]53:[141]60
  88. 1000 [153]"LOAD   ATN(null)(null)LEFT$ATNPEEKVAL(null)CLOSE(null)(null)(null)(null)
  89. 1010 PRINT"   [200]ERMAN, THE WORM, HAS NINE
  90. 1020 [153]"   SEGMENTS CONTAINING A SEQUENCE OF       LETTERS OR BLANKS.
  91. 1030 PRINT"   [207]NE OR MORE LETTERS MAY BE MISSING
  92. 1040 [153]"   AND THE STUDENT MUST TYPE THE           MISSING LETTER(S).
  93. 1050 PRINT"   [193]FTER TWO ATTEMPTS, THE CPRRECT         LETTER IS DISPLAYED.
  94. 1060 [153]"   (null)HERE ARE TEN QUESTIONS."
  95. 1065 [141]53:[141]60
  96. 1100 [153]"LOAD   ATN(null)(null)LEFT$ATNPEEKVAL(null)
  97. 1110 PRINT"   [198]ROM A STRING OF SIX LETTERS,
  98. 1120 [153]"   ONE, TWO, OR THREE LETTERS MAY BE       MISSING.
  99. 1130 PRINT"   [212]HE STUDENT MUST TYPE IN THE            CORRECT MISSING LETTERS.
  100. 1140 [153]"   ATN SPACE SHIP WILL (null)ATN(null) IN THE            CORRECT LETTER.
  101. 1150 PRINT"   [212]HERE ARE TEN QUESTIONS."
  102. 1155 GOSUB53:GOSUB60
  103. 1200 PRINT"[147]   [212][201][205][197][160][207][198][160][196][193][217]
  104. 1210 [153]"   (null)HIS PROGRAM PROVIDES BOTH A
  105. 1220 PRINT"   TUTORIAL AND QUIZ ON IDENTIFYING
  106. 1230 [153]"   HOURS AND HALF HOURS ON WATCHES         WITH HANDS."
  107. 1240 [141]53:[141]60
  108. 1300 [153]"LOAD   (null)VAL(null)-(null)(null)(null) (null)VALLEN(null)CHR$(null)RIGHT$(null)RIGHT$(null)(null)
  109. 1310 PRINT"   [212]HE PUPIL (OR TEACHER) CAN SELECT
  110. 1320 [153]"   THE THE GROUP OF LETTERS OR NUMBERS
  111. 1330 PRINT"   TO BE DISPLAYED AND THE TIME            DURATION OF DISPLAY.
  112. 1340 [153]"   ATN SERIES OF LETTERS OR NUMBERS ARE
  113. 1350 PRINT"   DISPLAYED ONE AT A TIME.
  114. 1360 [153]"   (null)HE STUDENT MUST PRESS THE MATCHING
  115. 1370 PRINT"   KEY ON THE KEYBOARD.
  116. 1380 [153]"   ATNFTER 9 ITEMS HAVE BEEN DISPLAYED,
  117. 1390 PRINT"   THE STUDENT'S SCORE IS SHOWN.
  118. 1395 [141]53:[141]60
  119. 1500 [153]"LOAD  ATN LENLEFT$(null)RIGHT$LENVAL:
  120. 1510 PRINT"  [208]RESS  2 [146] TO REPEAT INSTUCTIONS
  121. 1520 [153]"  (null)RESS  9 WAIT TO RETURN TO (null)VAL(null)(null)
  122. 1530 GETR$:IFR$<>"2"ANDR$<>"9"THEN1530
  123. 1540 IFR$="1"THEN100
  124. 1550 POKE631,13:POKE198,2
  125. 1560 PRINT"[147]  [204]OADING  [205][197][206][213] [146]
  126. 1565 [147]"MENU",8
  127. 1570 [138]
  128. 1575 [128]
  129. 1600 [143] BILL CUMBERLAND 89:07:30
  130.